
* Figure 3(b) Deals in the ZOPA. 
gen nash_zoneof3 = 1 if ///
cardname=="01011010" |  cardname=="01001010" | cardname=="01001011" 

run "$rootfolder\Dofiles\cards_division.do"

twoway ///
    (function x if P_uvalue256 > 0 & I_uvalue256 > 0, range(I_uvalue256) n(2) lcolor(red%50) lpattern(dash)) ///
	(scatter P_uvalue256 I_uvalue256 if P_uvalue256 > 0 & I_uvalue256 > 0,   mlabel(cardname) mlabsize(tiny)  mlabcolor(black%70) mlcolor(black%70) mcolor(black%70) msize(small)) /// 
	(rcap I_low I_high P_uvalue256 if P_uvalue256 > 0.1545 & P_uvalue256 < 0.25  & I_uvalue256 > 0.11 & I_uvalue256 < 0.3, horizontal lcolor(gray%50)) /// Horizontal CIs
	(rcap P_low P_high I_uvalue256 if P_uvalue256 > 0.1545 & P_uvalue256 < 0.25  & I_uvalue256 > 0.11 & I_uvalue256 < 0.3,  msize(small) lcolor(gray%50)) /// Vertical CIs
	(scatter P_uvalue256 I_uvalue256 if cardname=="01011110" , mlabel(cardname) mlabsize(tiny)  mlabcolor(green%70) mlcolor(green) mcolor(green) msize(small)) ///
	(scatter P_uvalue256 I_uvalue256 if cardname=="01001000" , mlabel(cardname) mlabsize(tiny)  mlabcolor(blue%70) mlcolor(blue%90) mcolor(blue%70) msize(small)) ///
	(scatter P_uvalue256 I_uvalue256 if cards_fairdeals==1 , mlabel(cardname) mlabsize(tiny)  mlabcolor(orange%70) mlcolor(orange%90) mcolor(orange%70) msize(small)) ///
	(scatter P_uvalue256 I_uvalue256 if nash_zoneof3==1 , mlabel(cardname) mlabsize(tiny)  mlabcolor(red%70) mlcolor(red%90) mcolor(red%70) msize(small)) ///
, ///
xline(0, lpattern(-) lc(gray)) ///
yline(0, lpattern(-) lc(gray)) ///
ytick(0(.1)0.6) ylabel(0(.1)0.6) ///
yt("Palestinians 'Acceptability'") ///
xt("Israelis 'Acceptability'") text(0.01 0.025 "status quo", size(vsmall)) ///
text(.15 .38 "Israel's" .13 .38 "most favored", size(vsmall) color(blue%90)) ///
text(.61 .05 "Palestine's" .59 .05 "most favored", size(vsmall) color(green%90)) ///
text(.32 .25 "Nash zone", size(vsmall) color(red%70)) ///
legend(off)  ///
graphregion(fcolor(white)) 
graph display, ysize(1) xsize(1)

